home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / QS6.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  34 lines
  1. 0  TEXT : HOME 
  2. 9  PRINT : PRINT : PRINT 
  3. 10  PRINT "You're in a contest to see who can      slide fastest down a bannister."
  4. 12  PRINT : GOSUB 210
  5. 13  PRINT "What kind of pants would you wear?": PRINT : PRINT : GOSUB 210
  6. 14  PRINT "     a)  Sandpaper pants"
  7. 15  PRINT : GOSUB 220
  8. 16  PRINT "     b)  Cotton pants"
  9. 17  PRINT : GOSUB 220
  10. 18  PRINT "     c)  Teflon pants"
  11. 19  PRINT : GOSUB 220
  12. 20  PRINT "     d)  Velcro pants"
  13. 21  PRINT : PRINT 
  14. 30  GET KY$
  15. 39  HOME : PRINT : PRINT : PRINT : PRINT : PRINT 
  16. 40  IF KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 110: HOME : PRINT  CHR$(4);"run qs7"
  17. 50  IF KY$ = "a"  OR KY$ = "A"  THEN  GOSUB 100
  18. 60  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 120
  19. 70  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 130
  20. 80  IF KY$ < >"a"  OR KY$ < >"A"  OR KY$ < >"b"  OR KY$ < >"B"  OR KY$ < >"d"  OR KY$ < >"D"  THEN  GOSUB 140
  21. 100  PRINT "Nope!  You'll make the bannister        smoother, but you won't finish first."
  22. 102  GOSUB 200: GOTO 0: RETURN 
  23. 110  PRINT "You got it!!  Teflon pants would be     the smoothest pants in the world."
  24. 112  GOSUB 200: RETURN 
  25. 120  PRINT "You're close, but there is something    smoother than cotton."
  26. 122  GOSUB 200: GOTO 0: RETURN 
  27. 130  PRINT "Nope!!  On a Velcro bannister, you'ld   be stuck for life."
  28. 132  GOSUB 200: GOTO 0: RETURN 
  29. 140  PRINT "Please enter only A, B, C, or D!!"
  30. 142  GOSUB 200: GOTO 0: RETURN 
  31. 180  END 
  32. 200  FOR I = 0 TO 3200: NEXT : RETURN 
  33. 210  FOR I = 0 TO 2000: NEXT : RETURN 
  34. 220  FOR I = 0 TO 500: NEXT : RETURN